home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr11
/
pdox693.zip
/
TI367.ASC
< prev
next >
Wrap
Text File
|
1992-09-09
|
1KB
|
67 lines
PRODUCT : Paradox NUMBER : 367
VERSION : 1.X & up
OS : DOS
DATE : September 9, 1992 PAGE : 1/1
TITLE : How to Copy Each Record a Specified Number of Times
The following script will copy a record in an un-keyed table any
number of times. The script illustrates the use of the PAL
commands ACCEPT, EDIT, COPYTOARRAY and FOR. For additional
information on these PAL commands, see the PAL Reference Guide
(for versions earlier than 4.0, see the PAL User's Guide).
@10,10
??"How many copies do you want of this record? "
ACCEPT "N" to x
EDIT "tbl" ;where "tbl" is your table name
COPYTOARRAY A ;copies your record to an array
END
FOR i FROM 1 to x-1
DOWN ;inserts a blank row
COPYFROMARRAY A ;copies the array to a blank row
ENDFOR
DISCLAIMER: You have the right to use this technical information
subject to the terms of the No-Nonsense License Statement that
you received with the Borland product to which this information
pertains.